home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
037a
/
phello.zip
/
HELLOOWL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-25
|
924b
|
36 lines
{************************************************}
{ }
{ Turbo Pascal for Windows }
{ ObjectWindows Hello Windows application }
{ Copyright (c) 1991 by Borland International }
{ }
{************************************************}
program HelloOWL;
uses WObjects, WinTypes, WinProcs;
type
{ Define a TApplication descendant }
THelloApp = object(TApplication)
procedure InitMainWindow; virtual;
end;
{ Construct the THelloApp's MainWindow object }
procedure THelloApp.InitMainWindow;
begin
MainWindow := New(PWindow, Init(nil, 'Hello, ObjectWindows'));
end;
{ Declare a variable of type THelloApp }
var
HelloApp: THelloApp;
{ Run the HelloApp }
begin
HelloApp.Init('HelloApp');
HelloApp.Run;
HelloApp.Done;
end.